home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / earkit / news / thor / rexx / golded / makecool.ged < prev    next >
Text File  |  1998-05-24  |  965b  |  47 lines
  1. /* MakeCool.ged by Troels Walsted Hansen
  2. ** $VER: MakeCool.ged 1.0 (9.6.95)
  3. **
  4. ** Make text eLiTe cool using an external program. Known to work with 
  5. ** "Coolify" by (Çøø£iF¥ 0.15ß by Øystein Larsen) and "Cool" (TEXT 
  6. ** COOLER v1.0 by DDT of the HALF-BRAINS TEAM).
  7. */
  8.  
  9. cooler = "Coolify"
  10.  
  11. /* needs GoldED functions */
  12.  
  13. options results
  14.  
  15. if(substr(address(),1,6) ~= "GOLDED") then
  16. do
  17.     say "This script should only be started from inside GoldED."
  18.     exit 20
  19. end
  20. else gedport = address()
  21.  
  22. /* save marked text block to file and delete it */
  23.  
  24. address(gedport)
  25. SAVE BLOCK NAME '"T:UncoolTempFile"'
  26. if(rc ~= 0) then exit
  27.  
  28. /* make text c00l */
  29.  
  30. address command
  31. cooler || " >nil: t:UncoolTempFile t:CoolTempFile"
  32. if(rc ~= 0) then exit
  33.  
  34. "delete >nil: t:UncoolTempFile"
  35.  
  36. /* delete uncool, and include c00l text */
  37.  
  38. address(gedport)
  39. DELETE BLOCK
  40. if(rc ~= 0) then exit
  41.  
  42. OPEN NAME '"t:CoolTempFile"' FAST INSERT
  43. if(rc ~= 0) then exit
  44.  
  45. address command
  46. "delete >nil: t:CoolTempFile"
  47.